home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / CTRL CHAR FIND.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  32 lines
  1. 0  TEXT : CALL  -936
  2. 5  GOSUB 200
  3. 10  DATA   201,141,240,21,201,136
  4. 20  DATA  240,17,201,128,144,13
  5. 30  DATA  201,160,176,9,72,132
  6. 40  DATA  53,56,233,64,76,249
  7. 50  DATA  253,76,240,253
  8. 60  FOR I = 768 TO 768 +27
  9. 70  READ V: POKE I,V: NEXT I
  10. 80  POKE 54,0: POKE 55,3
  11. 90  CALL 1002
  12. 100  END 
  13. 200  PRINT "DO YOU WISH INSTRUCTIONS (Y/N)";: INPUT I$
  14. 210  IF I$ < >"Y"  THEN  RETURN 
  15. 215  TEXT : CALL  -936
  16. 220  PRINT "WHEN TYPING FILE NAMES, THE USE OF SPECIAL KEYS SUCH AS 'ESC', THE LEFT-ARROW AND RIGHT-ARROW KEYS, AND CERTAIN KEYS TYPED WITH THE 'CTRL' KEY ('CONTROL' CHARACTERS 'CTRL-C', 'CTRL-H') MAY HAVE UNEXPECTED EFFECTS."
  17. 225  FOR T = 1 TO 7000: NEXT T: PRINT 
  18. 230  PRINT "IF A FILE NAME CONTAINS CONTROL CHARACTERS, YOU WON'T SEE THEM PRINTED, BUT THEY MUST BE TYPED TO USE OR DELETE THE FILE."
  19. 235  FOR T = 1 TO 4600: NEXT T: PRINT 
  20. 240  PRINT "THE FOLLOWING APPLESOFT PROGRAM CAN BE USED TO FIND ANY HIDDEN CHARACTERS EXCEPT 'CTRL-M' (RETURN), ESC, 'CTRL-H' (LEFT-ARROW) AND 'CTRL-U (RIGHT-ARROW)."
  21. 245  FOR T = 1 TO 4200: NEXT T: PRINT 
  22. 250  PRINT "IF YOU SUSPECT YOU MAY HAVE ACCIDENTALLY INTRODUCED A FILE NAME, RUN THIS PROGRAM."
  23. 255  FOR T = 1 TO 2800: NEXT T: PRINT 
  24. 260  PRINT "THE APPLESOFT PROMPT (]) WILL BE DISPLAYED."
  25. 265  FOR T = 1 TO 1400: NEXT T: PRINT 
  26. 270  PRINT "NEXT TYPE 'CATALOG' AND YOU WILL GET A LIST OF ALL THE FILES, WITH ANY CONTROL CHARACTERS SHOWN AS ";: FLASH : PRINT "FLASHING";: NORMAL : PRINT " CHARACTERS."
  27. 275  FOR T = 1 TO 4200: NEXT T: PRINT 
  28. 280  PRINT "CONTROL CHARACTERS IN PROGRAM LISTINGS CAN ALSO BE FOUND THIS WAY."
  29. 285  FOR T = 1 TO 2400: NEXT T: PRINT 
  30. 290  PRINT "TO REINSTATE NORMAL PRINTOUTS, TYPE 'PR#0'."
  31. 295  FOR T = 1 TO 5000: NEXT T: PRINT "<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>": RETURN 
  32. 300  END